Loadstar 89/089.d81/rocks overlay/PRINT OVERLAY

Commodore BASIC | 2022-08-26 | 2KB | 23 lines

0 rem"fgm z.print.b(c)1991 [210]on [195] [200]ackley [208].[207]. [194]ox 966, [194]oulevard, [195][193] 91905
1 [153]"load":z$[178][199](.)
2 [151]683,27:[151]684,51:[151]685,24:[151]686,00:[151]687,00:[151]688,0:[153]" (NULL)se this ascchr$(NULL) utility to print hi-res":[153]" z. screens which have been (NULL)(NULL)right$(NULL)(NULL)valstr$ (NULL)(NULL)":[153]" str$right$(NULL)(NULL) by the asc(NULL)(NULL) chr$(NULL)atn(NULL)left$right$len(NULL) (NULL)atnlenleft$right$(NULL)val v6.":[153]" (NULL)hese z. files will most probably"
3 [153]" contain things like (NULL)val(NULL)peek(NULL)atn(NULL)str$ (NULL)(NULL)val(NULL)(NULL)atn(NULL)(NULL).":[153]" (NULL)(NULL)(NULL)(NULL)(NULL)(NULL) right$(NULL) (NULL)valatn(NULL)(NULL) asc(NULL)(NULL) val(NULL)(NULL)(NULL)(NULL) len(NULL)(NULL)(NULL)atn(NULL)right$peek(NULL)val(NULL)!":[153]" right$f your printer doesn't support 80 dpi":[153]" then select 240. (NULL)he output will then":[153]" be done at 3(NULL) width for an 80 dpi size"
4 [153]" printout (denser & slower). valnjoy:)":[153]" (NULL)his program may be copied and given":[153]" to others so non-ascchr$(NULL)er's may";:[153]" enjoy":[153]" some of the benefits of the ascchr$(NULL).":[153]"  (NULL)(NULL)right$(NULL)(NULL)val(NULL) chr$(NULL)(NULL)(NULL)(NULL):":[153]"    1. val(NULL)(NULL)(NULL)(NULL)":[153]"    2. chr$val(NULL)right$(NULL)right$ 10(NULL)"
5 [151]198,.:[146]198,1:[161]a$:ty[178][197](a$):[139]ty[178].[176]ty[177]2[167][128]
6 [153]"ononon";:[129]x[178]1[164]ty:[153]:[130]:[153]">wait":[129]x[178]1[164]ty:[153]"on";:[130]:[153][163]21)"on(NULL)val(NULL)vallen(NULL) str$val(NULL)(NULL)right$(NULL)(NULL):":[153][163]23)"1. 80  dpi":[153][163]23)"2. 240 dpi":[151]198,.:[146]198,1:[161]a$:de[178][197](a$):[139]de[178].[176]de[177]2[167][128]
7 [153]"ononon";:[129]x[178]1[164]de:[153]:[130]:[153],,">wait":[129]x[178]1[164]de:[153]"on";:[130]:[153]:[153]:[153]"(NULL)atn(NULL)(NULL)val peekval(NULL)(NULL)valval(NULL) ascright$(NULL)val(NULL) y/nwait ";:[151]198,.:[146]198,1:[161]a$:[139]a$[178]"y"[167]p[178]1:[137]9
8 a$[178]"n"
9 [153]a$:[133]"(NULL)(NULL)atn(NULL)(NULL)right$(NULL)chr$ ascright$(NULL)val(NULL)atn(NULL)valz.1a overlay    cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";f$
10 [139]f$[178]""[176]f$[178]"z."[167][128]
11 [153]"lenleft$vallen(NULL)right$(NULL)chr$";:[159]1,8,15:[159]2,8,2,f$:[132]1,e,e$:[160]2:[160]1:[139]e[179]20[167]14
12 [139]c[167][153]:[153]"ascright$(NULL)right$(NULL)left$valstr$":[153]"files printed:"c:[128]
13 [153]f$;e;e$:[128]
14 [153]e;e$:c[178]c[170]1:[153]"(NULL)(NULL)atnstr$right$(NULL)chr$ #"c;f$:[159]3,8,0,f$:[151]157,0:[151]185,0:[151]780,0:[151]781,0:[151]782,32:[158]65493:[160]3:x[178]([194](174)[170]256[172][194](175))[171]8192:[151]253,x[175]255:[151]254,[181](x[173]256):[153]"(NULL)(NULL)right$(NULL)(NULL)right$(NULL)chr$close"f$:[158]4138:n1[178][194](681):n2[178][194](682):[139][194](2)[179][177]3[167]20
15 [151]689,27:[139]de[178]1[167][151]690,42:[151]691,04:[151]692,0:[151]4110,22:[137]17
16 x[178](n1[170]256[172]n2)[172]3:n1[178]x[175]255:n2[178][181](x[173]256):[151]4110,16:[151]691,0:[151]690,090:[139]ty[178]2[167][151]690,122:[151]685,16
17 [151]679,n1:[151]680,n2:[158]04204:a$[178][202](f$,3,1):a$[178][199]([198](a$)[170]1):f$[178][200](f$,2)[170]a$[170][201](f$,[195](f$)[171]3):[139]p[178].[167]11
18 [153]"(NULL)atn(NULL)(NULL)right$(NULL)chr$ - (NULL)val(NULL)(NULL) ascright$(NULL)val :"f$:[153]"(NULL)(NULL)val(NULL)(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL) to len(NULL)(NULL)(NULL)right$(NULL)(NULL)val (NULL)(NULL)right$(NULL)(NULL)right$(NULL)chr$":[151]198,.:[146]198,1:[161]a$:[139]a$[178][199](13)[167]11
19 [137]12
20 [153]"(NULL)(NULL)(NULL) atn len(NULL)(NULL)(NULL)atn(NULL)right$peek(NULL)val ascright$(NULL)val":[128]
21 [143] don't disturb basic : ml above*